home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / MATHS / ARCAUT / Automatons / Rug < prev    next >
Text File  |  1991-07-27  |  477b  |  29 lines
  1. AUTOMATON*
  2.  
  3.   Rug
  4.  
  5.   A simple 256 state Moore neighbourhood automaton. Each cell is replaced by
  6.   the average of it's eight neighbours plus a small increment. This
  7.   produces waves of colour which sweep over the display. Compare with 'Hodge
  8.   Podge'. Try a 200x100 window.
  9.  
  10. INITIALISATION*
  11.  
  12.   10DEF PROCdo
  13.   20*SetEval wrap on
  14.   30*SetEval i 2
  15.   40ENDPROC
  16.  
  17. SCREEN*
  18.  
  19.   10DEF PROCdo
  20.   20PROCsoup(0,256,1)
  21.   30ENDPROC
  22.  
  23. CODE*
  24.  
  25. ( READ_NEIG
  26.   SUM_NEIG  3 >> 
  27.   <i> +       == )
  28.  
  29. END*